**************** in ultimatebb.cgi
***search for 

	exit(0);

}    #end get_pm

*********add after it
if ($ubb eq 'send_PM') {



	if ($in{R1} eq 'number'){

	  $ubb ='private_message';

	  $in{u}=Do8Digit($in{user});

	}

	else

	{

		&RequireCode("$vars_config{CGIPath}/ubb_lib.cgi");

		$in{u}=&getpublicnamee($in{user});

	  	$ubb ='private_message';

	}

}    #end private_message


**************** in ubb_lib.cgi
***search for 
sub Do6Digit {

	return(sprintf ("%.6d", $_[0]));

}



*********add after it
sub getpublicnamee{

 	my $public_names=$_[0];

        my $num;

	my $one;

        my @line;

        @all_member_nums;

        @all_members_list = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi"));

	my $count=0;

        foreach $one (@all_members_list) {



        @line = split (/|!!|/, $one);



              chomp($line[1]);



              push (@all_member_nums, $line[1]);



	      $count++;

        }



        @this_member;

	my $found=0;

	my @all_members_list2;

	@all_member_nums2;

	@all_member_name;

	my $count2=0;

	if (-e "$vars_config{MembersPath}/publicmemberslist.cgi"){

		@all_members_list2 = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi"));

        	foreach $one (@all_members_list2) {



       			@line = split (/|!!|/, $one);



              		chomp($line[1]);



              		push (@all_member_nums2, $line[1]);



              		push (@all_member_name, $line[0]);



	      		$count2++;

        	}



	}



        if ($count2 != $count){

		my @public_name_file;

		THIS: foreach $one (@all_member_nums) {





               	 # open profile



               		@this_member = &OpenProfile($one);



               		chomp($this_member[15]);

      			push (@public_name_file, "$this_member[15]|!!|$one");



              		if ($this_member[15] eq ''){

                       		$this_member[15]=$this_member[0];

               		}

               		if  ($this_member[15] eq $public_names){

                		$num=$one;

               		}

		}

		&WriteFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi",@public_name_file);

		chmod(0777, "$vars_config{MembersPath}/publicmemberslist.cgi");

	}

	else

	{

	       $count=0;

		THIS: foreach $one (@all_member_nums2) {



               		if  ($all_member_name[$count] eq $public_names){

                		$num=$one;

               		}

	                $count++;

		}

	}

	return $num;



}




**************** in public_my_profile.pl
***search for 

<td valign="bottom" align="right">

<font size="1" face="$vars_style{FontFace}">

<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=ignore_list">$vars_wordlets{ignore_list}</a> | <a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=buddy_list">$vars_wordlets{buddy_list}</a>

</font>

</td></tr></table>
</center>


*********add after it
<form method="POST" action="ultimatebb.cgi">

  <p align="center">

  <input type="radio" value="name" checked name="R1"><span lang="en-us">Send by public name

    <input type="radio" name="R1" value="number">Send by user number</span>

  <input type="text" name="user" size="20">

  <INPUT TYPE="HIDDEN" NAME="ubb" VALUE="send_PM">

  <input type="submit" value="Send PM" name="B1">

  <p align="center">

</form>